home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / PROBLEMS / BENCHMARK / BUBBLESORT / bubbletest / icon8 / source < prev    next >
Text File  |  1992-05-23  |  584b  |  35 lines
  1. procedure main()
  2. a:=list(1000,0)
  3. # pseudo ramdom
  4.  pseudoramdom:=123456;
  5.  every count:=1 to 1000 do
  6.     {
  7.     pseudoramdom:=(pseudoramdom + 234567) % 567 + 345
  8.     a[count]:=pseudoramdom;
  9.     write(a[count])
  10.     }   
  11.  
  12.  system("time")
  13.  bubblesort(a,1000)
  14.  system("time") 
  15.  
  16.  every count:=1 to 1000 do
  17.     write(a[count])
  18. end
  19.  
  20. procedure bubblesort(a,len)
  21.   local flag,count
  22.   flag:=1
  23.   while (flag=1) do
  24.      {
  25.      flag:=0
  26.      every count:=1 to len-1 do
  27.         if (a[count]>a[count+1]) then
  28.            {
  29.            a[count]<->a[count+1]
  30.            flag:=1;
  31.            } 
  32.      }
  33. end 
  34.  
  35.